put"ShareWare-$15. to: Alphabets, Inc."&return after NoteButtonScript
put"804 Dempster St./ Evanston, IL. 60202"&return after NoteButtonScript
choose button tool
set script of card button (buttonNum +1) to NoteButtonScript
choose browse tool
set cursor to 1
send tabKey to fieldID
put " " into msg
end if
end memoNote
***********************
***********************
on ShowNotes -- 7 Jan '88 by Peter Fraterdeus
-- Part of the MemoNotes‚Ñ¢ system
--•Sends a mouseUp message to any button named "Note" on a card
-- thus toggling the visiblity of the Note Field
--•Put this script in your Home Stack, and use Shift-Opt.Click
-- to copy the ShowNotes button, paste in Bkgnd. of your Stack.
set lockscreen to true
MagicCopy
if the shiftKey is down then -- Shift-Click to edit script*
edit script of me
exit ShowNotes
end if
global HideAll
if hideAll is True then
put "showField false" into doWhat
put False into hideAll
else
put "showField true" into doWhat
put True into hideAll
end if
repeat with btn=1 to the number of card buttons
if the short name of card button btn is "Note" then
send doWhat to card button btn
end if
end repeat
end ShowNotes
***********************
on doHilite OnOff -- onOff must be either True or False if it exists
if the paramcount = 0 then
set the hilite of the Target to not the hilite of the Target
else
set the hilite of the Target to onOff
end if
end doHilite
on MagicCopy -- Magic Button Copy by Peter Fraterdeus
if the shiftKey is down and the optionKey is down and word 2 of the name of the target is "Button"then
choose button tool
click at the loc of the target -- Shift-Opt.Click to copy button*
domenu copy button
put the short name of the target&&"Button copied..." into msg
choose browse tool
exit to hyperCard
end if
end MagicCopy
***********************
on enterkey -- Toggle Browse-Button-Field Tools with EnterKey+Shift
-- I got this out of Macazine, I believe, from Jerry Daniels and added
-- the ShiftKey modifier
if the shiftKey is down then
if the tool is "browse tool" then choose button tool
else if the tool is "button tool" then choose field tool
else choose browse tool
end if
end enterkey
***********************
on KillNotes -- 7 Jan '88 by Peter Fraterdeus
--•Sends a Killnote Message to the Note Button selected, removing
-- both field (is cut to Clipboard), and button.
--•Put this script in your Home Stack, and use Shift-Opt.Click
-- to copy the KillNotes button, paste in Bkgnd. of your Stack.
set lockscreen to true
MagicCopy
if the shiftKey is down then -- Shift-Click to edit script*
edit script of me
exit Killnotes
end if
put "Click on NoteButton of note to Clear. (Or elsewhere to cancel)"
beep
wait until the mouse is down
put the mouseLoc into MsLoc
set cursor to 4
repeat with whichButton=1 to the number of card buttons
put "card button"&&whichButton into it
put the rect of it into targRect
if PointinRect(MSLOc,TargRect) =true and short name of it = "Note" then
send killField to it
choose button tool
click at Loc of it
domenu clear button
set cursor to 1
choose browse tool
put " " into msg
exit killNotes
end if
end repeat
set cursor to 1
choose browse tool
put " " into msg
end KillNotes
***********************
These are just some little helpers for finding the name and sizes
of objects
***********************
on showRect targ
put the rect of targ into msg
end showRect
on getSName targ
put the short name of targ into msg
end getSName
on getName targ
put the name of targ into msg
end getName
on showHV targ
getrect (targ)
getHV (targ)
put dH && dV into msg
end showHV
function getHV targ
global dH,dV
getrect (targ)
put item 1 of it - item 3 of it into dH
put item 2 of it - item 4 of it into dV
end getHV
function getRect targ
return the rect of targ
end getRect
function PointinRect apoint,aRect
if item 1 of apoint >= item 1 of aRect and item 1 of apoint <= item 3 of aRect and item 2 of apoint >= item 2 of aRect and item 2 of apoint <= item 4 of aRect
